library(openxlsx)
csv_file<-"D://文件//1//ADdata//ADdata2.csv"
data1<-read.csv(csv_file)
txt_file1<-"D://文件//1//ADdata//ADdata1.txt"
data2<-read.table(txt_file1)
txt_file2<-"D://文件//1//ADdata//ADdata4.txt"
data3<-read.table(txt_file2)
xlsx_file<-"D://文件//1//ADdata//ADdata3.xlsx"
data4<-read.xlsx(xlsx_file)
Data1<-merge(data3,data2,by.x=0,by.y=0)##根据每个表对应的基因列进行两两合并
Data2<-merge(data1,data4,by.x=1,by.y=1)
DATA<-merge(Data1,Data2,by.x=1,by.y=1)
write.csv(DATA,file="汇总.csv")
write.csv(DATA,file="汇总.csv")
write.table(DATA,file="汇总.txt")
write.xlsx(DATA,file="汇总.xlsx")